home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / entcom1a.zip / ENTCOM1A.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-03-14  |  6KB  |  373 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     If (Exist(PPEPath() + PPEName() + ".CFG")) Then
  35.         FOpen 1, PPEPath() + "ENTCOM1A.CFG", 0, 2
  36.         FGet 1, STRING011
  37.         FGet 1, STRING001
  38.         FGet 1, STRING002
  39.         FGet 1, STRING003
  40.         FGet 1, STRING004
  41.         FGet 1, STRING005
  42.         FGet 1, STRING006
  43.         FGet 1, STRING007
  44.         FGet 1, STRING008
  45.         FGet 1, STRING009
  46.         FGet 1, STRING010
  47.     Else
  48.         Newline
  49.         PrintLn "ERROR OPENING " + PPEPath() + PPEName() + ".CFG"
  50.         End
  51.     Endif
  52.     If (STRING011 == 2) Then
  53.         DispFile PPEPath() + "SCR2", 4 + 2 + 1
  54.         AnsiPos 20, 6
  55.         Print "@X0F"
  56.         Print STRING001
  57.         AnsiPos 20, 7
  58.         Print STRING002
  59.         AnsiPos 8, 11
  60.         PrintLn "@X09Copyright(c) 1995 Software Kitchen 718-281-0645 ENTCOM1A.PPE@X07"
  61.         AnsiPos 8, 13
  62.         InputStr "@X0BWhich SysOp would you like to leave a message for", STRING012, 11, 2, "012Q", 2 + 4 + 8
  63.         If (STRING012 == "1") Goto LABEL001
  64.         If (STRING012 == "2") Goto LABEL002
  65.     Endif
  66.     If (STRING011 == 3) Then
  67.         DispFile PPEPath() + "SCR3", 4 + 2 + 1
  68.         AnsiPos 20, 6
  69.         Print "@X0F"
  70.         Print STRING001
  71.         AnsiPos 20, 7
  72.         Print STRING002
  73.         AnsiPos 20, 8
  74.         Print STRING003
  75.         AnsiPos 8, 12
  76.         PrintLn "@X09Copyright(c) 1995 Software Kitchen 718-281-0645 ENTCOM1A.PPE@X07"
  77.         AnsiPos 8, 14
  78.         InputStr "@X0BWhich SysOp would you like to leave a message for", STRING012, 11, 2, "0123Q", 2 + 4 + 8
  79.         If (STRING012 == "1") Goto LABEL001
  80.         If (STRING012 == "2") Goto LABEL002
  81.         If (STRING012 == "3") Goto LABEL003
  82.     Endif
  83.     If (STRING011 == 4) Then
  84.         DispFile PPEPath() + "SCR4", 4 + 2 + 1
  85.         AnsiPos 20, 6
  86.         Print "@X0F"
  87.         Print STRING001
  88.         AnsiPos 20, 7
  89.         Print STRING002
  90.         AnsiPos 20, 8
  91.         Print STRING003
  92.         AnsiPos 20, 9
  93.         Print STRING004
  94.         AnsiPos 8, 13
  95.         PrintLn "@X09Copyright(c) 1995 Software Kitchen 718-281-0645 ENTCOM1A.PPE@X07"
  96.         AnsiPos 8, 15
  97.         InputStr "@X0BWhich SysOp would you like to leave a message for", STRING012, 11, 2, "01234Q", 2 + 4 + 8
  98.         If (STRING012 == "1") Goto LABEL001
  99.         If (STRING012 == "2") Goto LABEL002
  100.         If (STRING012 == "3") Goto LABEL003
  101.         If (STRING012 == "4") Goto LABEL004
  102.     Endif
  103.     If (STRING011 == 5) Then
  104.         DispFile PPEPath() + "SCR5", 4 + 2 + 1
  105.         AnsiPos 20, 6
  106.         Print "@X0F"
  107.         Print STRING001
  108.         AnsiPos 20, 7
  109.         Print STRING002
  110.         AnsiPos 20, 8
  111.         Print STRING003
  112.         AnsiPos 20, 9
  113.         Print STRING004
  114.         AnsiPos 20, 10
  115.         Print STRING005
  116.         AnsiPos 8, 14
  117.         PrintLn "@X09Copyright(c) 1995 Software Kitchen 718-281-0645 ENTCOM1A.PPE@X07"
  118.         AnsiPos 8, 16
  119.         InputStr "@X0BWhich SysOp would you like to leave a message for", STRING012, 11, 2, "012345Q", 2 + 4 + 8
  120.         If (STRING012 == "1") Goto LABEL001
  121.         If (STRING012 == "2") Goto LABEL002
  122.         If (STRING012 == "3") Goto LABEL003
  123.         If (STRING012 == "4") Goto LABEL004
  124.         If (STRING012 == "5") Goto LABEL005
  125.     Endif
  126.     If (STRING011 == 6) Then
  127.         DispFile PPEPath() + "SCR6", 4 + 2 + 1
  128.         AnsiPos 20, 6
  129.         Print "@X0F"
  130.         Print STRING001
  131.         AnsiPos 20, 7
  132.         Print STRING002
  133.         AnsiPos 20, 8
  134.         Print STRING003
  135.         AnsiPos 20, 9
  136.         Print STRING004
  137.         AnsiPos 20, 10
  138.         Print STRING005
  139.         AnsiPos 20, 11
  140.         Print STRING006
  141.         AnsiPos 8, 15
  142.         PrintLn "@X09Copyright(c) 1995 Software Kitchen 718-281-0645 ENTCOM1A.PPE@X07"
  143.         AnsiPos 8, 17
  144.         InputStr "@X0BWhich SysOp would you like to leave a message for", STRING012, 11, 2, "0123456Q", 2 + 4 + 8
  145.         If (STRING012 == "1") Goto LABEL001
  146.         If (STRING012 == "2") Goto LABEL002
  147.         If (STRING012 == "3") Goto LABEL003
  148.         If (STRING012 == "4") Goto LABEL004
  149.         If (STRING012 == "5") Goto LABEL005
  150.         If (STRING012 == "6") Goto LABEL006
  151.     Endif
  152.     If (STRING011 == 7) Then
  153.         DispFile PPEPath() + "SCR7", 4 + 2 + 1
  154.         AnsiPos 20, 6
  155.         Print "@X0F"
  156.         Print STRING001
  157.         AnsiPos 20, 7
  158.         Print STRING002
  159.         AnsiPos 20, 8
  160.         Print STRING003
  161.         AnsiPos 20, 9
  162.         Print STRING004
  163.         AnsiPos 20, 10
  164.         Print STRING005
  165.         AnsiPos 20, 11
  166.         Print STRING006
  167.         AnsiPos 20, 12
  168.         Print STRING007
  169.         AnsiPos 8, 16
  170.         PrintLn "@X09Copyright(c) 1995 Software Kitchen 718-281-0645  ENTCOM1A.PPE@X07"
  171.         AnsiPos 8, 18
  172.         InputStr "@X0BWhich SysOp would you like to leave a message for", STRING012, 11, 2, "01234567Q", 2 + 4 + 8
  173.         If (STRING012 == "1") Goto LABEL001
  174.         If (STRING012 == "2") Goto LABEL002
  175.         If (STRING012 == "3") Goto LABEL003
  176.         If (STRING012 == "4") Goto LABEL004
  177.         If (STRING012 == "5") Goto LABEL005
  178.         If (STRING012 == "6") Goto LABEL006
  179.         If (STRING012 == "7") Goto LABEL007
  180.     Endif
  181.     If (STRING011 == 8) Then
  182.         DispFile PPEPath() + "SCR8", 4 + 2 + 1
  183.         AnsiPos 20, 6
  184.         Print "@X0F"
  185.         Print STRING001
  186.         AnsiPos 20, 7
  187.         Print STRING002
  188.         AnsiPos 20, 8
  189.         Print STRING003
  190.         AnsiPos 20, 9
  191.         Print STRING004
  192.         AnsiPos 20, 10
  193.         Print STRING005
  194.         AnsiPos 20, 11
  195.         Print STRING006
  196.         AnsiPos 20, 12
  197.         Print STRING007
  198.         AnsiPos 20, 13
  199.         Print STRING008
  200.         AnsiPos 8, 17
  201.         PrintLn "@X09Copyright(c) 1995 Software Kitchen 718-281-0645 ENTCOM1A.PPE@X07"
  202.         AnsiPos 8, 19
  203.         InputStr "@X0BWhich SysOp would you like to leave a message for", STRING012, 11, 2, "012345678Q", 2 + 4 + 8
  204.         If (STRING012 == "1") Goto LABEL001
  205.         If (STRING012 == "2") Goto LABEL002
  206.         If (STRING012 == "3") Goto LABEL003
  207.         If (STRING012 == "4") Goto LABEL004
  208.         If (STRING012 == "5") Goto LABEL005
  209.         If (STRING012 == "6") Goto LABEL006
  210.         If (STRING012 == "7") Goto LABEL007
  211.         If (STRING012 == "8") Goto LABEL008
  212.     Endif
  213.     If (STRING011 == 9) Then
  214.         DispFile PPEPath() + "SCR9", 4 + 2 + 1
  215.         AnsiPos 20, 6
  216.         Print "@X0F"
  217.         Print STRING001
  218.         AnsiPos 20, 7
  219.         Print STRING002
  220.         AnsiPos 20, 8
  221.         Print STRING003
  222.         AnsiPos 20, 9
  223.         Print STRING004
  224.         AnsiPos 20, 10
  225.         Print STRING005
  226.         AnsiPos 20, 11
  227.         Print STRING006
  228.         AnsiPos 20, 12
  229.         Print STRING007
  230.         AnsiPos 20, 13
  231.         Print STRING008
  232.         AnsiPos 20, 14
  233.         Print STRING009
  234.         AnsiPos 8, 18
  235.         PrintLn "@X09Copyright(c) 1995 Software Kitchen 718-281-0645 ENTCOM1A.PPE@X07"
  236.         AnsiPos 8, 20
  237.         InputStr "@X0BWhich SysOp would you like to leave a message for", STRING012, 11, 2, "0123456789Q", 2 + 4 + 8
  238.         If (STRING012 == "1") Goto LABEL001
  239.         If (STRING012 == "2") Goto LABEL002
  240.         If (STRING012 == "3") Goto LABEL003
  241.         If (STRING012 == "4") Goto LABEL004
  242.         If (STRING012 == "5") Goto LABEL005
  243.         If (STRING012 == "6") Goto LABEL006
  244.         If (STRING012 == "7") Goto LABEL007
  245.         If (STRING012 == "8") Goto LABEL008
  246.         If (STRING012 == "9") Goto LABEL009
  247.     Endif
  248.     If (STRING011 == 10) Then
  249.         DispFile PPEPath() + "SCR10", 4 + 2 + 1
  250.         AnsiPos 20, 6
  251.         Print "@X0F"
  252.         Print STRING001
  253.         AnsiPos 20, 7
  254.         Print STRING002
  255.         AnsiPos 20, 8
  256.         Print STRING003
  257.         AnsiPos 20, 9
  258.         Print STRING004
  259.         AnsiPos 20, 10
  260.         Print STRING005
  261.         AnsiPos 20, 11
  262.         Print STRING006
  263.         AnsiPos 20, 12
  264.         Print STRING007
  265.         AnsiPos 20, 13
  266.         Print STRING008
  267.         AnsiPos 20, 14
  268.         Print STRING009
  269.         AnsiPos 20, 15
  270.         Print STRING010
  271.         AnsiPos 8, 19
  272.         PrintLn "@X09Copyright(c) 1995 Software Kitchen 718-281-0645 ENTCOM1A.PPE@X07"
  273.         AnsiPos 8, 21
  274.         InputStr "@X0BWhich SysOp would you like to leave a message for", STRING012, 11, 2, "012345678910Q", 2 + 4 + 8
  275.         If (STRING012 == "1") Goto LABEL001
  276.         If (STRING012 == "2") Goto LABEL002
  277.         If (STRING012 == "3") Goto LABEL003
  278.         If (STRING012 == "4") Goto LABEL004
  279.         If (STRING012 == "5") Goto LABEL005
  280.         If (STRING012 == "6") Goto LABEL006
  281.         If (STRING012 == "7") Goto LABEL007
  282.         If (STRING012 == "8") Goto LABEL008
  283.         If (STRING012 == "9") Goto LABEL009
  284.         If (STRING012 == "10") Goto LABEL010
  285.     Endif
  286.     If (STRING012 == "Q") Goto LABEL011
  287.     :LABEL001
  288.     KbdStuff "E" + Chr(13) + Upper(STRING001) + Chr(13) + "Comments" + Chr(13) + "R" + Chr(13) + "Y"
  289.     End
  290.     :LABEL002
  291.     KbdStuff "E" + Chr(13) + Upper(STRING002) + Chr(13) + "Comments" + Chr(13) + "R" + Chr(13) + "Y"
  292.     End
  293.     :LABEL003
  294.     KbdStuff "E" + Chr(13) + Upper(STRING003) + Chr(13) + "Comments" + Chr(13) + "R" + Chr(13) + "Y"
  295.     End
  296.     :LABEL004
  297.     KbdStuff "E" + Chr(13) + Upper(STRING004) + Chr(13) + "Comments" + Chr(13) + "R" + Chr(13) + "Y"
  298.     End
  299.     :LABEL005
  300.     KbdStuff "E" + Chr(13) + Upper(STRING005) + Chr(13) + "Comments" + Chr(13) + "R" + Chr(13) + "Y"
  301.     End
  302.     :LABEL006
  303.     KbdStuff "E" + Chr(13) + Upper(STRING006) + Chr(13) + "Comments" + Chr(13) + "R" + Chr(13) + "Y"
  304.     End
  305.     :LABEL007
  306.     KbdStuff "E" + Chr(13) + Upper(STRING007) + Chr(13) + "Comments" + Chr(13) + "R" + Chr(13) + "Y"
  307.     End
  308.     :LABEL008
  309.     KbdStuff "E" + Chr(13) + Upper(STRING008) + Chr(13) + "Comments" + Chr(13) + "R" + Chr(13) + "Y"
  310.     End
  311.     :LABEL009
  312.     KbdStuff "E" + Chr(13) + Upper(STRING009) + Chr(13) + "Comments" + Chr(13) + "R" + Chr(13) + "Y"
  313.     End
  314.     :LABEL010
  315.     KbdStuff "E" + Chr(13) + Upper(STRING010) + Chr(13) + "Comments" + Chr(13) + "R" + Chr(13) + "Y"
  316.     End
  317.     If (("" == "Q") || ("" == "")) Stop
  318.     :LABEL011
  319.     Newlines 1
  320.     KbdStuff "^M^M"
  321.     End
  322.  
  323. ;------------------------------------------------------------------------------
  324. ;
  325. ; Usage report (before postprocessing)
  326. ;
  327. ; ■ Statements used :
  328. ;
  329. ;    12      End
  330. ;    66      Goto 
  331. ;    63      Print 
  332. ;    10      PrintLn 
  333. ;    66      If 
  334. ;    9       DispFile 
  335. ;    1       FOpen 
  336. ;    11      FGet 
  337. ;    9       InputStr 
  338. ;    1       Newline
  339. ;    1       Newlines 
  340. ;    1       Stop
  341. ;    11      KbdStuff 
  342. ;    72      AnsiPos 
  343. ;
  344. ;
  345. ; ■ Functions used :
  346. ;
  347. ;    131     +
  348. ;    66      ==
  349. ;    10      !
  350. ;    1       ||
  351. ;    10      Upper()
  352. ;    40      Chr()
  353. ;    12      PPEPath()
  354. ;    1       Exist()
  355. ;    2       PPEName()
  356. ;
  357. ;------------------------------------------------------------------------------
  358. ;
  359. ; Analysis flags : No flag
  360. ;
  361. ;------------------------------------------------------------------------------
  362. ;
  363. ; Postprocessing report
  364. ;
  365. ;    0       For/Next
  366. ;    0       While/EndWhile
  367. ;    10      If/Then or If/Then/Else
  368. ;    0       Select Case
  369. ;
  370. ;------------------------------------------------------------------------------
  371. ;                 AEGiS Corp - Break the routines, code against the machines!
  372. ;------------------------------------------------------------------------------
  373.